home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / borland / svgabg52.zip / TWK16.INC < prev    next >
Text File  |  1992-06-25  |  1KB  |  35 lines

  1. (************************************************)
  2. (*                         *)
  3. (*      SuperVGA 16 BGI driver defines    *)
  4. (*        Copyright (c) 1991        *)
  5. (*        Jordan Hargraphix Software        *)
  6. (*                        *)
  7. (************************************************)
  8.  
  9. type DacPalette16 = array[0..15] of array[0..2] of Byte;
  10.  
  11. (* These are the currently supported modes *)
  12. const
  13.  TWK704x528x16        = 0    (* 704x528x16 Tweaked VGA *)
  14.  TWK720x540x16        = 1    (* 720x540x16 Tweaked VGA *)
  15.  TWK736x552x16        = 2    (* 736x552x16 Tweaked VGA *)
  16.  TWK752x564x16        = 3    (* 752x564x16 Tweaked VGA *)
  17.  TWK784x588x16        = 4    (* 784x588x16 Tweaked VGA *)
  18.  TWK800x600x16        = 5    (* 800x600x16 Tweaked VGA *)
  19.  
  20. (* Setvgapalette sets the entire 16 color palette *)
  21. (* PalBuf contains RGB values for all 16 colors   *)
  22. (* R,G,B values range from 0 to 63               *)
  23. procedure SetVGAPalette16(PalBuf : DacPalette16);
  24. var
  25.   Reg : Registers;
  26.  
  27. begin
  28.   reg.ax := $1012;
  29.   reg.bx := 0;
  30.   reg.cx := 16;
  31.   reg.es := Seg(PalBuf);
  32.   reg.dx := Ofs(PalBuf);
  33.   intr($10,reg);
  34. end;
  35.